10 POKE56,130:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[159]":POKE53280,0:POKE53281,0
40 SYS57812"VT FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
50 SYS57812"CM-SCR-WP-UNP",DV,0:POKE780,0:POKE781,0:POKE782,195:SYS65493
52 SYS57812"S.VTTITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,90:SYS65493
54 POKE251,90:POKE252,224:POKE253,204:SYS51456:SYS51459
56 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<700THEN56
60 SYS57812"MRJ49152",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
70 SYS57812"S.VT.SHP",DV,0:POKE780,0:POKE781,0:POKE782,138:SYS65493
78 SYS51459
80 PRINT"[147]":POKE53281,0:POKE53272,(PEEK(53272)AND240)OR2
90 POKE251,138:POKE252,224:POKE253,204:SYS51456:SYS51459
100 POKE53280,11:I=RND(-TI)
110 SD=54272:FORI=0TO24:POKESD+I,0:NEXT:POKESD+5,18:POKESD+6,18:POKESD+24,15
120 POKESD+12,3:POKESD+13,40
130 GOSUB5100
140 UN=51456:HG=51459:WP=50944:SC=50176:CM=49920
150 SYSSC,224,204,8
160 GOTO1030
170 :
180 :REM SCREEN SAVE
190 :
200 SYSCM,1024,130*256,1000:SYSCM,55296,134*256,1000:RETURN
210 SYSCM,130*256,1024,1000:SYSCM,134*256,55296,1000:RETURN
220 :
230 :REM TEXT BOX
240 :
250 POKE646,C:POKE214,Y:PRINT
260 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
270 FORI=1TOYY:PRINTTAB(X)"[171]"LEFT$(SP$,XX)"[146][179]":NEXT
280 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
290 RETURN
300 :
310 :REM MENU BOX
320 :
330 SYSSC+6,29,11,"	[144][146][176][178][178][178][178][178][178][178][174]"
340 FORI=1TO4:SYSSC+6,29,11+I,"[171]       [146][179]":NEXT
350 SYSSC+6,29,16,"[173][177][177][177][177][177][177][177][189]"
360 RETURN
370 :
380 :REM SHUFFLE/DEAL/RUNES
390 :
400 FORI=0TO5:RR(I)=I:NEXT
410 FORI=0TO5:R=INT(RND(1)*6)
420 T=RR(R):RR(R)=RR(I):RR(I)=T:NEXT
430 FORI=0TO6:FORJ=0TO9
440 PC(I,J)=INT(RND(1)*4):NEXT:NEXT
450 FORI=0TO3:NI(6,I)=0:NEXT
460 FORI=0TO9:NI(6,PC(6,I))=NI(6,PC(6,I))+1:NEXT
470 I=0
480 IFI=NI(6,0)THEN500
490 PC(6,I)=0:I=I+1:GOTO480
500 IFI=NI(6,0)+NI(6,1)THEN520
510 PC(6,I)=1:I=I+1:GOTO500
520 IFI=NI(6,0)+NI(6,1)+NI(6,2)THEN540
530 PC(6,I)=2:I=I+1:GOTO520
540 IFI=10THEN560
550 PC(6,I)=3:I=I+1:GOTO540
560 RETURN
570 :
580 :REM RUNE PARAMETERS
590 :
600 FORI=0TO5:FORJ=0TO2
610 R(I,J)=INT(RND(1)*(RH(I,J)-RL(I,J)+1)+RL(I,J))
620 IFJ=1THENIFR(I,1)=R(I,0)THEN600
630 NEXT:NEXT
640 RETURN
650 :
660 :REM EVALUATE PL'S SCORE
670 :
680 FORI=0TO3:NI(PL,I)=0:V(PL,I)=10:NEXT:PS(PL)=0
690 FORI=0TO9:NI(PL,PC(PL,I))=NI(PL,PC(PL,I))+1:NEXT
700 FORI=0TO5:IFPL=6THENIFRG(I)=0THEN720
710 ONI+1GOSUB4100,4150,4200,4260,4320,4380
720 NEXT
730 FORI=0TO3:PS(PL)=PS(PL)+V(PL,I)*NI(PL,I):NEXT
740 RETURN
750 :
760 :REM PICK FOUR
770 :
780 FORI=0TO9:FL(I)=0:NEXT:CO=0
790 R=INT(RND(1)*10)
800 IFFL(R)THEN790
810 TR(CO)=R:FL(R)=1:CO=CO+1:IFCO<4THEN790
820 RETURN
830 POKE214,15:PRINT:PRINTTAB(3)"[149][195]HOOSE UP TO FOUR OF "PL$(G)"'S"
840 PRINTTAB(3)"IKONS AND AN EQUAL NUMBER OF     "
850 PRINTTAB(3)"YOUR OWN FOR TRADE.              "
860 PRINTTAB(3)"  [210] - [211]EE THE RUNES YOU KNOW     "
870 PRINTTAB(3)"  [196] - [196]ONE. [199]O BACK TO THE GAME  ":RETURN
880 :
890 :REM CLEAR IKONS
900 :
910 POKE214,15:PRINT:FORI=0TO4:PRINTTAB(3)"[149]"LEFT$(SP$,34):NEXT:RETURN
920 :
930 :
940 :REM PROMPT AND WAIT
950 :
960 POKE214,23:PRINT:PRINTTAB(14)"[159][208]RESS A KEY"
970 POKE198,0
980 GETA$:IFA$=""THEN980
990 GOSUB5100:RETURN
1000 :
1010 :REM INITIALIZE
1020 :
1030 DIMPC(7,10),NI(7,10),R(6,3),RR(7),RH(6,3),RL(6,3),M$(7),B$(4),IC$(4),PL$(7)
1040 DIMV(7,4),PS(7),GX(6),GY(6),SX(16),SY(16),BB$(4)
1050 ZX(0)=91:ZX(1)=93:ZX(2)=60:ZX(3)=62
1060 TP$="[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
1070 SP$="                                        "
1080 BT$="[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
1090 FORI=1TO4:READM$(I):NEXT
1100 DATA" [212][210][193][196][197] "," [210][213][206][197][211] "," [211][212][207][210][217] "," [195][197][193][211][197] "
1110 FORI=1TO4:READM1$(I):NEXT
1120 DATA" [211][195][207][210][197] "," [210][213][206][197][211] "," [201][203][207][206][211] "," [194][197][199][201][206] "
1130 B$(0)="	[158]#$[157][157]%&":B$(1)="	[158][220][221][157][157]^[223]":B$(2)="	[158][160][161][157][157][162][163]":B$(3)="	[158][164][165][157][157][166][167]"
1140 BB$(0)="#$[157][157]%&":BB$(1)="[220][221][157][157]^[223]":BB$(2)="[160][161][157][157][162][163]":BB$(3)="[164][165][157][157][166][167]"
1150 FORI=0TO6:READPL$(I):NEXT
1160 DATA"[202][193][196][193][215][201][206]","[195][200][210][217][211][197][201][211]","[210][197][196] [207][210][195]","[193][206][193][206][193]","[203][201][195][203][193][200][193]","[208][207][196][193][210][199][197]","[208][204][193][217][197][210]"
1170 FORI=0TO5:FORJ=0TO2:READRH(I,J),RL(I,J):NEXT:NEXT
1180 DATA5,3,3,0,3,1,4,2,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1
1190 IC$(0)="CRESCENTS":IC$(1)="HORNS":IC$(2)="BELLS":IC$(3)="TIERWORLDS"
1200 CS$="        "
1210 FORI=0TO2:GX(I)=3+9*I:GY(I)=8:NEXT:FORI=3TO5:GX(I)=3+9*(I-3):GY(I)=17:NEXT
1220 FORI=704TO751:POKEI,255:NEXT:FORI=752TO767:POKEI,0:NEXT
1230 FORI=2040TO2047:POKEI,11:NEXT:V=53248:POKEV+16,0:POKEV+29,0:POKEV+23,0
1240 POKEV+27,255:POKEV+21,0:POKEV+39,12:FORI=40TO46:POKEV+I,8:NEXT
1250 FORI=0TO9:SX(I)=60+I*24:SY(I)=114:NEXT:SX(9)=22
1260 FORI=11TO14:SX(I)=68+(I-10)*40:SY(I)=154:NEXT
1270 SX(10)=60:SY(10)=154:SX(15)=22:SY(15)=154
1280 SYS49152,CHR$(13)+"[145][157]",20,20,10,10
1290 GOSUB4880:REM GET NAME
1300 OPEN2,DV,2,"VT."+PL$(6)
1310 INPUT#2,GP
1320 FORI=0TO6:INPUT#2,PT(I):NEXT
1330 CLOSE2
1340 OPEN15,DV,15:INPUT#15,A,A$,A,A:CLOSE15
1350 FORI=19TO22:SYSSC+6,2,I,"	[149][158][146]"+LEFT$(SP$,36):NEXT
1360 SYSSC+6,7,22,"[202][213][211][212] [193] [211][197][195] - [195][207][213][206][212][201][206][199] [201][203][207][206][211]"
1370 FORI=0TO5:HL=204*256+(GY(I)-1)*40+GX(I)-2:FORJ=0TO7:POKEHL+J,12:NEXT:NEXT
1380 POKE53280,11:GOSUB400:GOSUB600:GOSUB330:M=1:GD=0:GP=GP+1
1390 FORI=0TO5:RG(I)=0:NEXT
1400 FORPL=0TO6:GOSUB680:NEXT
1410 SYSSC+6,2,22,"	[149][158]"+LEFT$(SP$,36)
1420 :
1430 :REM SCREEN SETUP
1440 :
1450 SYSSC+6,2,20,"	[144][149]":FORI=0TO9:SYSSC+6,3+I*3,19,B$(PC(6,I)):NEXT
1460 SYSSC+6,4,22,"	[158][149]"+LEFT$(SP$,30)
1470 SYSSC+6,33,20,"[211][195][207][210][197]"
1480 FORI=0TO9:SYSSC+6,2+3*I,22,"	[129]   [157][157][157]"+STR$(V(6,PC(6,I))):NEXT
1490 SYSSC+6,33,22,"    [157][157][157][157]"+STR$(PS(6))
1500 IFGD=6THEN4440
1510 FORI=0TO5:SYSSC+6,GX(I),GY(I),"[152]	[144]    [157][157][157][157]"+STR$(PS(I)):NEXT
1520 IFRG(RR(G))THENHL=204*256+(GY(G)-1)*40+GX(G)-2:FORI=0TO7:POKEHL+I,11:NEXT
1530 :
1540 :REM MENU LOOP
1550 :
1560 FORI=1TO4:SYSSC+6,30,11+I,"	[153]"+M$(I):NEXT
1570 SYSSC+6,30,11+M,"	"+M$(M)
1580 POKE198,0
1590 GETA$:IFA$=""THEN1590
1600 GOSUB5100
1610 IFA$="T"THENM=1:GOTO1710
1620 IFA$="R"THENM=2:GOTO1710
1630 IFA$="S"THENM=3:GOTO1710
1640 IFA$="C"THENM=4:GOTO1710
1650 SYSSC+6,30,11+M,"	[153]"+M$(M)
1670 IFA$=CHR$(13)THEN1710
1680 IFA$="[145]"THENM=M-1:IFM<1THENM=4
1690 IFA$=""THENM=M+1:IFM>4THENM=1
1700 GOTO1570
1710 ONMGOSUB1770,2970,3550,3950
1720 IFM=1THEN1450
1730 GOTO1560
1740 :
1750 :REM TRADE
1760 :
1770 GOSUB330:GD=GD+1
1780 SYSSC+6,30,12,"	[153] [212][210][193][196][197] "
1790 SYSSC+6,30,13," [215][201][212][200]  "
1800 SYSSC+6,30,14," [215][200][201][195][200] "
1810 SYSSC+6,30,15," [204][207][210][196]? "
1820 G=0
1830 SYSSC+6,GX(G)-2,GY(G),"	[152]"+CS$
1840 SYSSC+6,GX(G),GY(G),"	[144]"+STR$(PS(G))
1850 GETA$:IFA$=""THEN1850
1860 GOSUB5100
1870 SYSSC+6,GX(G)-2,GY(G),"	[152][152]"+CS$
1880 SYSSC+6,GX(G),GY(G),"	[144][152]"+STR$(PS(G))
1890 IFA$="J"THENG=0:A$=CHR$(13)
1900 IFA$="C"THENG=1:A$=CHR$(13)
1910 IFA$="R"THENG=2:A$=CHR$(13)
1920 IFA$="A"THENG=3:A$=CHR$(13)
1930 IFA$="K"THENG=4:A$=CHR$(13)
1940 IFA$="P"THENG=5:A$=CHR$(13)
1950 IFA$=CHR$(13)ANDRG(RR(G))=0THEN2020
1960 IFA$=CHR$(13)ANDRG(RR(G))=1THENGOSUB5180:GOTO1830
1970 IFA$="[145]"THENG=G-3:IFG<0THENG=G+6
1980 IFA$=""THENG=G+3:IFG>5THENG=G-6
1990 IFA$=""THENG=G+1:IFG=3ORG=6THENG=G-3
2000 IFA$="[157]"THENG=G-1:IFG=-1ORG=2THENG=G+3
2010 GOTO1830
2020 POKE53280,0:SYSHG:PRINT"[147]":RG(RR(G))=1
2030 X=0:XX=37:Y=1:YY=6:C=9:GOSUB250
2040 POKE214,3:PRINT:PRINTTAB(10)"[149]"PL$(G)"'S [210][213][206][197] IS...":PRINT
2050 ONRR(G)+1GOSUB4070,4120,4170,4230,4290,4350:PRINT
2060 POKE214,23:PRINT:PRINT"      [159][208]RESS A KEY FOR THE [194][193][218][193][193][210]"
2070 POKE198,0
2080 GETA$:IFA$=""THEN2080
2090 GOSUB5100
2100 POKE781,24:SYS59903
2110 X=0:XX=37:Y=1:YY=19:C=9:GOSUB250
2120 POKE214,3:PRINT:PRINT"[149][194] [193] [218] [193] [193] [210]   [207] [198]   [212] [201] [197] [210] [211]"
2130 FORI=0TO9:PP(I)=0:NEXT:FORI=0TO3:IP(I)=0:NEXT
2140 PRINTTAB(12)"[217]OU ARE HOLDING:"
2150 FORI=0TO9
2160 PRINTTAB(5+I*3)B$(PC(6,I))"[145]";
2170 NEXT:PRINT""
2180 PRINTTAB(8)"[149]"PL$(G)" OFFERS FOR TRADE:"
2190 GOSUB780
2200 FORI=0TO3:PRINTTAB(11+5*I)B$(PC(G,TR(I)))"[145]";:NEXT:PRINT""
2210 GOSUB830
2220 POKE214,12:PRINT:PRINTTAB(5)"[180][181][157][157][182][183]"
2230 POKE214,12:PRINT:PRINTTAB(32)"[184][185][157][157][186][187]"
2240 S=10:CO=1:POKEV+21,1:POKEV+16,0
2250 POKEV+21,0:POKEV,SX(S):POKEV+1,SY(S)
2260 IFS<>9ANDS<>15THENPOKEV+16,0:GOTO2280
2270 POKEV+16,1
2280 POKEV+21,1:POKE198,0
2290 GETA$:IFA$=""THEN2290
2300 GOSUB5100
2310 IFA$="_"THENAW=(AW+1)AND15:POKEV+39,AW:GOTO2290
2320 IFA$=CHR$(13)THEN2400
2330 IFA$=CHR$(133)ORA$="D"THENGOSUB5100:GOTO2500
2340 IFA$="R"THENPOKEV+21,0:GOSUB200:T2=1:GOSUB2980:T2=0:GOSUB210:GOTO2250
2350 IFA$="[145]"THENS=0-10*(S<10)
2360 IFA$=""THENS=10+10*(S>9)
2370 IFA$=""THENS=S+1:IFS>15THENS=0
2380 IFA$="[157]"THENS=S-1:IFS<0THENS=15
2390 GOTO2250
2400 A$="":IFS>9THEN2440
2410 POKE214,7:PRINT:PRINTTAB(5+3*S);
2420 IFPP(S)THENPP(S)=0:PRINTB$(PC(6,S)):GOTO2370
2430 PP(S)=1:PRINT""BB$(PC(6,S)):GOTO2370
2440 IFS=10THENA$="R":GOTO2340
2450 IFS=15THENA$=CHR$(133):GOTO2330
2460 POKE214,12:PRINT:PRINTTAB(11+5*(S-11));
2470 IFIP(S-11)THENIP(S-11)=0:PRINTB$(PC(G,TR(S-11))):GOTO2370
2480 IP(S-11)=1:PRINT""BB$(PC(G,TR(S-11))):GOTO2370
2490 FORI=0TO9:PM(I)=0:NEXT
2500 U1=0:FORI=0TO9:IFPP(I)THENU1=U1+1:PM(U1)=I
2510 NEXT
2520 FORI=0TO3:PN(I)=0:NEXT
2530 U2=0:FORI=0TO3:IFIP(I)THENU2=U2+1:PN(U2)=I
2540 NEXT
2550 IFU1=U2THEN2630
2560 GOSUB910:GOSUB5180
2570 POKE214,17:PRINT:PRINTTAB(7)"[212]HE NUMBER OF IKONS PICKED"
2580 PRINTTAB(5)"IN THE TOP ROW MUST EQUAL THE"
2590 PRINTTAB(4)"NUMBER PICKED IN THE BOTTOM ROW."
2600 ZZ=0
2610 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<150THEN2610
2620 GOSUB830:GOTO2250
2630 IFU1THEN2700
2640 GOSUB5180
2650 GOSUB910:POKE214,16:PRINT:PRINTTAB(3)"[212]HE [204]ORDS INSIST THAT YOU TRADE"
2660 PRINTTAB(3)"AT LEAST [207][206][197] IKON!"
2670 ZZ=0
2680 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<150THEN2680
2690 GOSUB830:GOTO2250
2700 FORI=1TOU1:PR(I)=0:NEXT:PR=0
2710 FORI=1TOU1:FORJ=1TOU1
2720 IFPR(J)THEN2740
2730 IFPC(6,PM(I))=PC(G,TR(PN(J)))THENPR(J)=1:J=U1:PR=PR+1
2740 NEXT
2750 NEXT
2760 IFPR<>U1THEN2830
2770 GOSUB5180
2780 GOSUB910:POKE214,16:PRINT:PRINTTAB(3)"[212]HE [204]ORDS ARE NOT AMUSED BY A"
2790 PRINTTAB(3)"PHONY TRADE LIKE THAT!"
2800 ZZ=0
2810 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<150THEN2810
2820 GOSUB830:GOTO2250
2830 FORJ=1TOU1
2840 FORI=0TO9:IFPP(I)THENPP(I)=0:PQ=I:I=9
2850 NEXT
2860 FORI=0TO3:IFIP(I)THENIP(I)=0:IQ=I:I=3
2870 NEXT
2880 T=PC(6,PQ):PC(6,PQ)=PC(G,TR(IQ)):PC(G,TR(IQ))=T
2890 NEXT
2900 PL=G:GOSUB680:PL=6:GOSUB680
2910 GOSUB450
2920 POKEV+21,0:POKE53280,11
2930 POKE251,138:POKE252,224:SYSHG:POKE251,250:POKE252,129:RETURN
2940 :
2950 :REM RUNES
2960 :
2970 POKE53280,0:SYSHG
2980 PRINT"[147][149]"
2990 POKE53265,11
3000 X=0:XX=37:Y=0:YY=20:C=9:PRINT"";:GOSUB260
3010 POKE214,0:PRINT:PRINTTAB(11)"[212] [200] [197]   [210] [213] [206] [197] [211]"
3020 FORI=0TO5
3030 IFRG(I)=0THEN3050
3040 ONI+1GOSUB4070,4120,4170,4230,4290,4350:PRINT
3050 NEXT
3060 POKE53265,27
3070 POKE214,21:PRINT:FORI=0TO9
3080 PRINTTAB(5+I*3)B$(PC(6,I))"[145]";
3090 NEXT:PRINT""
3100 POKE198,0
3110 GETA$:IFA$=""THEN3110
3120 GOSUB5100
3130 IFT2THENRETURN
3140 POKE53280,11:POKE251,138:POKE252,224:SYSHG:POKE251,250:POKE252,129
3150 RETURN
3160 :
3170 :REM SCORE
3180 :
3190 SYSHG
3200 POKE53280,0:PRINT"[147]"
3210 X=3:XX=31:Y=0:YY=20:C=9:GOSUB250
3220 POKE214,2:PRINT:PRINTTAB(7)"[214] [197] [201] [204]   [207] [198]   [212] [201] [197] [210] [211]"
3230 PRINTTAB(7)"[208][204][193][217][197][210]      [211][195][207][210][197]     [193][214][199].
3240 [153][163]7) "TANTANTANTANTANTAN      TANTANTANTANTAN    TANTANTANTANTAN"
3250 [151]214,7:[153]
3260 [129]I[178]0[164]6
3270 [153]"VERIFY"[163]7)PL$(I)[163]19[171](PS(I)[179]100))PS(I);
3280 [153][163]27[171](AV(I)[179]100))AV(I):[153]
3290 [130]
3300 [151]214,23:[153]:[153]"OPEN   ((null)OPEN)AVE SCORES   (LENOPEN)LEAR   ATNNY KEY"
3310 [151]198,0
3320 [161]A$:[139]A$[178]""[167]3320
3330 [139]A$[179][177]"S"[167]3360
3340 [159]15,DV,15,"S0:VT."[170]PL$(6):[160]15:[159]2,DV,2,"VT."[170]PL$(6)[170]",P,W"
3350 [152]2,GP:[129]I[178]0[164]6:[152]2,PT(I):[130]:[160]2:[137]3380
3360 [139]A$[179][177]"C"[167]3380
3370 [129]I[178]0[164]6:PT(I)[178]0:PS(I)[178]0:AV(I)[178]0:[130]:GP[178]0:[137]3340
3380 [151]53280,11:[151]251,138:[151]252,224:[158]HG:[151]251,250:[151]252,129
3390 [142]
3400 :
3410 :[143] IKONS
3420 :
3430 [151]53280,0:[158]HG
3440 [153]"LOADVERIFY"
3450 X[178]3:XX[178]31:Y[178]0:YY[178]20:C[178]9:[141]250
3460 [153]"":[129]I[178]0[164]5:[153][163]5)"VERIFY"PL$(I)" -"PS(I)
3470 [129]J[178]0[164]9
3480 [153][163]5)B$(PC(I,J))"ON";:[130]:[153]:[153]:[130]
3490 [141]960
3500 [151]53280,11:[151]251,138:[151]252,224:[158]HG:[151]251,250:[151]252,129
3510 [142]
3520 :
3530 :[143] STORY
3540 :
3550 [151]53280,0:[158]HG:[153]"LOAD"
3560 X[178]1:XX[178]36:Y[178]0:YY[178]20:C[178]9:[141]250
3570 [151]214,2:[153]:[153][163]7)"(null) VAL RIGHT$ (null)   (null) ASC   (null) RIGHT$ VAL (null) (null)"
3580 [153][163]3)"VERIFY   MID$ADAWIN CREATED THE POCKET
3590 PRINTTAB(3)"UNIVERSE OF THE [215]ORLD OF [212]IERS
3600 [153][163]3)"MILLENIA AGO. (null)ATER, (null)ICKAHA THE
3610 PRINTTAB(3)"[212]RICKSTER DEVISED THE [214][197][201][204] [207][198] [212][201][197][210][211]
3620 [153][163]3)"WHICH IS USED TO TRACK THE BARTER
3630 PRINTTAB(3)"BETWEEN THE [204]ORDS AND A RANDOMLY
3640 [153][163]3)"SELECTED HUMAN, YOU.
3650 PRINTTAB(3)"   [212]HE UNITS OF BARTER IN THE
3660 [153][163]3)"(null)IERWORLD UNIVERSE ARE LENRESCENTS,
3670 PRINTTAB(3)"[200]ORNS, [194]ELLS AND MINIATURE [212]IER-
3680 [153][163]3)"WORLDS. VALACH IS WORTH 10 PRIOR TO
3690 PRINTTAB(3)"BEING MODIFIED BY THE [210][213][206][197]S. [212]HE
3700 [153][163]3)"(null)ORDS' SCORES ARE BASED ON ALL
3710 PRINTTAB(3)"SIX [210][213][206][197]S; YOUR SCORE IS BASED
3720 [153][163]3)"ONLY THE (null)(null)(null)VALS YOU KNOW.
3730 GOSUB960
3740 PRINT"":FORI=0TO16:PRINTTAB(3)"[149]"LEFT$(SP$,35):NEXT
3750 PRINT""TAB(3)"[149]   [207]NLY IF YOU GAIN A HIGHER
3760 [153][163]3)"SCORE THAN ATN(null)(null) OF THE (null)ORDS SHALL
3770 PRINTTAB(3)"YOU FEEL CONTENT. [193] GAME WILL BE
3780 [153][163]3)"OVER AFTER YOU'VE TRADED IKONS
3790 PRINTTAB(3)"WITH THE SIXTH [204]ORD. [217]OU [205][213][211][212]
3800 [153][163]3)"TRADE AT LEAST ONE IKON EACH TIME
3810 PRINTTAB(3)"YOU TRADE WITH A [204]ORD.
3820 [153][163]3)"   PEEKEFORE THE TRADE, THE (null)ORD
3830 PRINTTAB(3)"WILL REVEAL HIS [210][213][206][197] TO YOU. [212]HE
3840 [153][163]3)"(null)(null)(null)VALS WILL DETERMINE YOUR SCORE SO
3850 PRINTTAB(3)"HEED THEM!
3860 [153][163]3)"   ATNFTER EACH GAME YOU MAY SEE
3870 PRINTTAB(3)"AVERAGE [211][195][207][210][197]S, THE PLAYERS' [201][203][207][206][211],
3880 [153][163]3)"THE (null)(null)(null)VAL(null), OR PEEKVALCHR$RIGHT$(null)CLOSEA NEW GAME.
3890 GOSUB960
3900 POKE53280,11:POKE251,138:POKE252,224:SYSHG:POKE251,250:POKE252,129
3910 RETURN
3920 :
3930 :REM CEASE
3940 :
3950 GOSUB330
3960 SYSSC+6,31,12,"	[153][195][197][193][211][197]?
3970 [158]SC[170]6,31,13," (null)(null)(null)"
3980 [158]SC[170]6,31,14,"(null)(null)(null)VAL?
3990 SYSSC+6,31,15,"([217]/[206])
4000 [161]A$:[139]A$[178]""[167]4000
4010 [141]5100
4020 [139]A$[178]"Y"[176]A$[178]"(null)"[167]5230
4030 [142]
4040 :
4050 :[143] RUNES TEXT/FORMULA
4060 :
4070 [153]"RIGHT$F THERE ARE FEWER THAN"R(0,0)IC$(R(0,1))
4080 [153]"ADD"R(0,2)"TO THEIR VALUE.
4090 RETURN
4100 IFNI(PL,R(0,1))<R(0,0)THENV(PL,R(0,1))=V(PL,R(0,1))+R(0,2)
4110 RETURN
4120 PRINT"[201]F THERE ARE MORE THAN"R(1,0)IC$(R(1,1))","
4130 PRINT"SUBTRACT"R(1,2)"FROM THEIR VALUE.
4140 [142]
4150 [139]NI(PL,R(1,1))[177]R(1,0)[167]V(PL,R(1,1))[178]V(PL,R(1,1))[171]R(1,2)
4160 [142]
4170 [153]"RIGHT$F THERE ARE JUST AS MANY "IC$(R(2,0))
4180 [153]"AS "IC$(R(2,1))", ADD"R(2,2)"TO EACH VALUE.
4190 RETURN
4200 IFNI(PL,R(2,0))=NI(PL,R(2,1))THENV(PL,R(2,0))=V(PL,R(2,0))+R(2,2)
4210 IFNI(PL,R(2,0))=NI(PL,R(2,1))THENV(PL,R(2,1))=V(PL,R(2,1))+R(2,2)
4220 RETURN
4230 PRINT"[201]F THERE ARE JUST AS MANY "IC$(R(3,0))
4240 PRINT"AS "IC$(R(3,1))", SUBTRACT"R(3,2)"FROM EACH.
4250 [142]
4260 [139]NI(PL,R(3,0))[178]NI(PL,R(3,1))[167]V(PL,R(3,0))[178]V(PL,R(3,0))[171]R(3,2)
4270 [139]NI(PL,R(3,0))[178]NI(PL,R(3,1))[167]V(PL,R(3,1))[178]V(PL,R(3,1))[171]R(3,2)
4280 [142]
4290 [153]"RIGHT$F THERE ARE MORE "IC$(R(4,0))" THAN"
4300 [153]""IC$(R(4,1))", ADD"R(4,2)"TO EACH VALUE.
4310 RETURN
4320 IFNI(PL,R(4,0))>NI(PL,R(4,1))THENV(PL,R(4,0))=V(PL,R(4,0))+R(4,2)
4330 IFNI(PL,R(4,0))>NI(PL,R(4,1))THENV(PL,R(4,1))=V(PL,R(4,1))+R(4,2)
4340 RETURN
4350 PRINT"[201]F THERE ARE MORE "IC$(R(5,0))" THAN"
4360 PRINT""IC$(R(5,1))", SUBTRACT"R(5,2)"FROM EACH.
4370 [142]
4380 [139]NI(PL,R(5,0))[177]NI(PL,R(5,1))[167]V(PL,R(5,0))[178]V(PL,R(5,0))[171]R(5,2)
4390 [139]NI(PL,R(5,0))[177]NI(PL,R(5,1))[167]V(PL,R(5,1))[178]V(PL,R(5,1))[171]R(5,2)
4400 [142]
4410 :
4420 :[143] END GAME
4430 :
4440 [129]I[178]0[164]6:PT(I)[178]PT(I)[170]PS(I):[130]
4450 [129]I[178]0[164]6:AV(I)[178][181]((PT(I)[172]10)[173]GP)[173]10:[130]
4460 [158]SC[170]6,GX(G),GY(G),"PRINT#	STOP    CMDCMDCMDCMD"[170][196](PS(G))
4470 HL[178]204[172]256[170](GY(G)[171]1)[172]40[170]GX(G)[171]2:[129]I[178]0[164]7:[151]HL[170]I,11:[130]
4480 HS[178]0:[129]I[178]0[164]6
4490 [139]PS(I)[177]HS[167]HS[178]PS(I):HP[178]I
4500 [130]
4510 [141]330:CO[178]0
4520 [139]HP[179]6[167]4610
4530 [158]SC[170]6,32,13,"	PRINT(null)(null)(null)"
4540 [158]SC[170]6,32,14,"(null)RIGHT$(null)!"
4550 [158]SC[170]6,32,13,"	(null)(null)(null)"
4560 [158]SC[170]6,32,14,"(null)RIGHT$(null)!"
4570 [158]SC[170]6,33,22,"	VERIFY"[170][196](PS(6))
4580 [158]SC[170]6,33,22,"	FOR"[170][196](PS(6))
4590 [137]4630
4600 [129]I[178]0[164]5:[158]SC[170]6,GX(I),GY(I),"	STOPPRINT#       ":[130]
4610 [158]SC[170]6,GX(HP)[171]2,GY(HP),"	PRINT# (null)RIGHT$(null)(null)VAL(null)":[129]I[178]0[164]50:[130]
4620 [158]SC[170]6,GX(HP)[171]2,GY(HP),"PRINT#	STOP       CMDCMDCMDCMDCMD"[170][196](PS(HP))
4630 CO[178]CO[170]1:[161]A$:[139]A$[178]""[175]CO[179]20[167]4520
4640 [141]5100
4650 [141]330:M[178]1
4660 [129]I[178]1[164]4:[158]SC[170]6,30,11[170]I,"	PRINT"[170]M1$(I):[130]
4670 [158]SC[170]6,30,11[170]M,"	"[170]M1$(M)
4680 [161]A$:[139]A$[178]""[167]4680
4690 [141]5100
4700 [158]SC[170]6,30,11[170]M,"	PRINT"[170]M1$(M)
4710 [139]A$[178]"S"[167]M[178]1:A$[178][199](13)
4720 [139]A$[178]"R"[167]M[178]2:A$[178][199](13)
4730 [139]A$[178]"I"[167]M[178]3:A$[178][199](13)
4740 [139]A$[178]"B"[167]M[178]4:A$[178][199](13)
4750 [139]A$[178][199](13)[167]4790
4760 [139]A$[178]"ON"[167]M[178]M[171]1:[139]M[179]1[167]M[178]4
4770 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]4[167]M[178]1
4780 [137]4670
4790 X[178]1:XX[178]36:Y[178]0:YY[178]20:C[178]9:[141]250
4800 [145]M[141]3190,2970,3430
4810 [139]M[178]4[167]4830
4820 [137]4670
4830 [129]I[178]0[164]5:[158]SC[170]6,GX(I)[171]2,GY(I),"	STOPPRINT#       ":[130]
4840 [137]1350
4850 :
4860 :[143] REQUEST FOR NAME
4870 :
4880 [158]SC[170]6,6,20,"SYS	VERIFY(null)HE (null)ORDS REQUEST YOUR NAME."
4890 [158]SC[170]6,14,22,"	STOP            "
4900 [141]4940:[141]5100
4910 [139]Q9$[167]PL$(6)[178]Q9$
4920 [141]910
4930 [142]
4940 Q9$[178]"":[151]198,0:ZQ[178]0:L9[178]10
4950 [161]A$:ZX[178](ZX[170]1)[175]3
4960 [158]SC[170]6,15[170]ZQ,22,[199](ZX(ZX))[170]"CMD":[139]A$[178]""[167]4950
4970 [139]A$[178][199](13)[167][158]SC[170]6,15[170]ZQ,22," ":[142]
4980 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]5040
4990 [139][195](Q9$)[177][178]L9[167]4950
5000 [139]A$[177][178]"A"[175]A$[179][178]"Z"[167]A$[178][199]([198](A$)[170]128)
5010 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]4950
5020 Q9$[178]Q9$[170]A$
5030 [158]SC[170]6,15[170]ZQ,22,A$:ZQ[178]ZQ[170]1:[137]4950
5040 [158]SC[170]6,15[170]ZQ,22," CMD":ZQ[178]ZQ[171]1
5050 [137]4950
5070 :[143]
5080 :[143] BEEP
5090 :[143]
5100 [151]SD[170]1,[187](1)[172]10[170]40
5110 [151]SD[170]4,17
5120 [129]T[178]0[164]50:[130]
5130 [151]SD[170]4,16:[143] POKESD+24,0
5140 [142]
5150 :[143]
5160 :[143] BUZZ
5170 :[143]
5180 [151]SD[170]8,6
5190 [151]SD[170]11,33
5200 [129]T[178]0[164]150:[130]
5210 [151]SD[170]11,32
5220 [142]
5230 [158]49155:[158]HG
5231 [137]40000
5235 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]5250
5240 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]5260
5250 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[128]
5260 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
5270 [153]"RUN":[151]631,13:[151]632,13:[151]198,2
5280 [151]2048,0:[151]44,8:[128]
10000 DV[178][194](186):F$[178]"VEIL OF TIERS":[139]DV[179]8[167][144]
10001 [159]15,DV,15,"S0:"[170]F$:[148]F$,DV
10002 [128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40055 [129]X[178]1[164]4:[151]630[170]X,[198]([202](R$,X)):[130]:[151]198,4:[137]40040
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]